home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utilwb / pelnwtls.lha / PeelNewTools / PeelNewTools_GUI < prev    next >
Text File  |  1996-04-14  |  1KB  |  48 lines
  1. ;GUI for PeelNewTools
  2. ;Works only with WB 3.x
  3. ;You need
  4. ;EndCLI, Requestfile, Requestchoice, IconX and Delete
  5. ;located in C:
  6. ;@Michael Hartmann, Marktstr. 16, 87730 Grönenbach, 30.03.1996
  7. ; (+ some changes by Erik Østlyngen, Trondheim, 13.04.96)
  8.  
  9. LAB start
  10. ;choose Single or Recursive
  11. C:Requestchoice >env:Loperat "PeelNewTools""Choose:""Single""Recursive""Quit"
  12. ;Variables for Requestchoice
  13. IF $Loperat eq "0"
  14. skip Cancel
  15. ENDIF
  16. IF $Loperat eq "2"
  17. skip Recursive
  18. ENDIF
  19. IF $Loperat eq "1"
  20. skip Single
  21. ENDIF
  22. C:endcli
  23. ENDIF
  24.  
  25. ;call the Single version
  26. LAB Single
  27. ;ask for path
  28. C:Requestfile >env:Xfilename TITLE "Choose path" PATTERN #?.info MULTISELECT
  29. PeelNewTools $Xfilename L
  30. DELETE ENV:Xfilename ALL QUIET
  31. DELETE ENV:Loperat ALL QUIET
  32.  
  33. skip start back
  34. ;call the Recursive version
  35. LAB Recursive
  36. ;ask for path
  37. C:Requestfile >env:Xfilename TITLE "Choose path" DRAWERSONLY
  38. PeelNewTools $Xfilename R L
  39. DELETE ENV:Xfilename ALL QUIET
  40. DELETE ENV:Loperat ALL QUIET
  41.  
  42. skip start back
  43. ;call the Cancel version
  44. LAB Cancel
  45. C:endcli
  46.  
  47. ;END
  48.